home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 0022-3.564 / dmg-3459 / programs / gfa_trix / foob.s < prev   
Text File  |  1992-11-14  |  861b  |  23 lines
  1. ;Fooberol source code by Stefan Posthuma (1992)
  2. ;String number in D0
  3. ;Return address in A0
  4.  
  5.      MOVE.W    #-1,D1              ; Compare value in D1
  6. .0   CMP.W     (A0),D0             ; String number reached yet?
  7.      BNE       .1                  ; No
  8.      ADDQ.W    #2,A0               ; Skip number 
  9.      RTS                           ; Leave
  10.  
  11. .1   CMP.W     (A0),D1             ; End of strings reached?
  12.      BNE       .2                  ; No
  13.      LEA       $FFFF,A0            ; -1, Not found
  14.      RTS                           ; Leave
  15.  
  16. .2   TST.B     $1(A0)              ; Next byte a zero?
  17.      BEQ       .3                  ; Yes
  18.      ADDQ.L    #2,A0               ; Skip this word
  19.      BRA       .2                  ; And again
  20. .3   ADDQ.L    #2,A0               ; Skip this one
  21.      BRA       .0                  ; Check again
  22.  
  23.